home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / alpha.arc / HIPASS.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-12-31  |  1.1 KB  |  34 lines
  1. 5 REM Copyright 1986, Arnold B. Krueger, Grosse Pointe Woods, MI, 48236
  2. 10  DEF FNAMHP2(W,WC,D) = 1 / SQR(1+(WC/W)^4+(D*D-2.000001)*(WC/W)^2)
  3. 20  DEF FNDBV(AMP) = 20!*LOG(AMP)/LOG(10!)
  4. 30 PI = ATN(SQR(3!))*3!
  5. 40 PRINT "Unity Gain high Pass Filter Program"
  6. 50 INPUT "Enter desired Q:  hit enter for Butterworth (.707) ",Q
  7. 60 IF Q = 0 THEN Q = 1!/SQR(2!)
  8. 70 INPUT "Enter desired Design Frequency: (1000 Hz) ",F
  9. 80 IF F = 0 THEN F = 1000
  10. 90 SCALF = 1000!/F
  11. 100 INPUT "Enter desired Capacitor values: (16,000 pF) ",C
  12. 110 IF C = 0 THEN C = 16000!
  13. 120 SCALC = 16000!/C
  14. 130 R1 = 10000!*SCALC*SCALF*.5/Q
  15. 140 R2 = 10000!*SCALC*SCALF*2!*Q
  16. 150 R3 = R2
  17. 160 PRINT "R1 = ";R1;"ohms R2,R3 = ";R2;"ohms, C = ";C;" pF"
  18. 170 F1 = 2!*F
  19. 180 F2 = F/2
  20. 190 W1 = F1*2!*PI
  21. 200 W2 = F2*2!*PI
  22. 210 W  = F *2!*PI
  23. 220 D = 1! / Q
  24. 230 AMP1 = FNAMHP2(W1,W,D)
  25. 240 AMP2 = FNAMHP2(W2,W,D)
  26. 250 AMP  = FNAMHP2(W,W,D)
  27. 260 AMP1DB = FNDBV(AMP1)
  28. 270 AMP2DB = FNDBV(AMP2)
  29. 280 AMPDB = FNDBV(AMP)
  30. 290 PRINT "F(half design) ";F2;"Hz,response ";AMP2DB;" dB"
  31. 300 PRINT "F(design) ";F;"Hz, response ";AMPDB;" dB"
  32. 310 PRINT "F(double design) ";F1;"Hz response ";AMP1DB;" dB"
  33. 
  34.